TableGetNumberRows Function

private function TableGetNumberRows(tab) result(rows)

return the number of rows in a table

Arguments

Type	Intent	Optional	Attributes		Name
type(Table),	intent(in)			::	tab

Return Value integer

Source Code

FUNCTION TableGetNumberRows &
!
( tab ) &
!
RESULT (rows)

IMPLICIT NONE

!arguments with intent (in):
TYPE (table), INTENT (IN) :: tab

!local dclarations:
INTEGER :: rows
!--------------------------------end of declarations---------------------------

rows = tab % noRows

END FUNCTION TableGetNumberRows